home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / powerd_lib.lha / PowerD_PPC / CtrlF.ass < prev    next >
Text File  |  2000-11-16  |  491b  |  38 lines
  1. # CtrlF()(BOOL)
  2.  
  3.     .sdreg    r2
  4.     .global    _CtrlF
  5.  
  6. _CtrlF:    mflr    r0
  7.     stw    r0,8(r1)
  8.     stwu    r1,-32(r1)
  9.  
  10.     li    r4,0
  11.     li    r5,0
  12.     lwz    r3,_PowerPCBase(r2)
  13.     lwz    r0,-478(r3)    # SetSignalPPC()
  14.     mtlr    r0
  15.     blrl
  16.  
  17.     andi.    r0,r3,32768    # btst    #15,d0
  18.     beq    .no
  19.  
  20.     li    r4,0
  21.     ori    r5,r4,32768
  22.     lwz    r3,_PowerPCBase(r2)
  23.     lwz    r0,-478(r3)    # SetSignalPPC()
  24.     mtlr    r0
  25.     blrl
  26.     
  27. .yes:    li    r3,-1
  28.     b    .finish
  29. .no:    li    r3,0
  30. .finish:    addi    r1,r1,32
  31.     lwz    r0,8(r1)
  32.     mtlr    r0
  33.     blr
  34.  
  35.     .type    _CtrlF,@function
  36.     .size    _CtrlF,$-_CtrlF
  37.     .extern    _PowerPCBase
  38.